home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Pascal Super Library
/
Pascal Super Library (CW International)(1997).bin
/
LIBRARY
/
SWDOS12
/
UPCASE.ASM
< prev
next >
Wrap
Assembly Source File
|
1994-07-28
|
1KB
|
44 lines
;******************************************************************
;* UPCASE.ASM *
;* Source file for SoftWeyr enhanced DOS toolbox *
;* version 1.0 *
;* Copyright (c) by SoftWeyr,1994 *
;******************************************************************
MODEL TPASCAL
LOCALS
.DATA
EXTRN DosError:Word
.CODE
Public Upcase,StUpCase
UpCase PROC Far char:Byte
MOV AX,6520H
MOV DL,Char
INT 21H
JC @@Error
SUB AX,AX
@@Error: MOV DosError,AX
MOV AL,DL
Ret
endp
StUpCase Proc Far S:DWord Returns Result:DWORD
Push DS
LDS BX,S
SUB CX,CX
MOV CL,[BX]
inc BX
MOV DX,BX
MOV AX,6521H
INT 21H
JC @@Error
XOR AX,AX
@@Error: MOV DosError,AX
LES DI,Result
MOV AL,CL
STOSB
MOV SI,DX
REP MOVSB
POP DS
RET
endp
end